home *** CD-ROM | disk | FTP | other *** search
/ IBM InfoROM for OS/2 Beta 1995 January / IBM InfoROM for OS2 Beta 1-1995.ISO / testcert / mmedia / system / ap2 / scripts / vr2___ib.p2s < prev    next >
Encoding:
Text File  |  1994-07-13  |  5.8 KB  |  240 lines
  1. ###########################################################################
  2. #
  3. # Description:  Open video in, record, play and close
  4. #               Resize and moving monitor window during playback.
  5. # Settings: 
  6. #           duration 66665
  7. #           compression: ulti
  8. #           video quality: 5000
  9. #           audio: 44100 samples per sec,  8 bits, 2 channel, volume 100
  10. #           video source: 640 x 480
  11. #           video destination: 320 x 240
  12. #
  13. ###########################################################################
  14.  
  15. ############################################
  16. #
  17. #   open Video In
  18. #
  19. ############################################
  20.  
  21. OPEN DIGITALVIDEO02 ALIAS VID SHAREABLE NOTIFY
  22. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_OPEN #1
  23. @WAIT_NOTIFY 1 45000
  24.  
  25. ############################################
  26. #
  27. #   set video monitor on/off
  28. #
  29. ############################################
  30.  
  31. SET VID MONITOR ON NOTIFY
  32. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SET #2
  33. @WAIT_NOTIFY 2 30000
  34.  
  35. status VID monitor wait
  36. =ON
  37.  
  38. ############################################
  39. #
  40. #   enable audio monitor
  41. #
  42. ############################################
  43.  
  44. CONNECTION VID QUERY TYPE WAVE STREAM ALIAS AMP WAIT
  45.  
  46. SET AMP MONITOR ON WAIT
  47.  
  48. ############################################
  49. #
  50. #   load a new file
  51. #
  52. ############################################
  53.  
  54. LOAD VID NEW NOTIFY
  55. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_LOAD #3
  56. @WAIT_NOTIFY 3 30000
  57.  
  58. ############################################
  59. #
  60. #   set time format to milliseconds
  61. #
  62. ############################################
  63.  
  64. SET VID TIME FORMAT MILLISECONDS NOTIFY
  65. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SET #4
  66. @WAIT_NOTIFY 4 30000
  67.  
  68.  
  69.  
  70. ############################################
  71. #
  72. #   set compression type:
  73. #     - DIB:  raw = uncompressed
  74. #     - ULTI: ultimotion
  75. #     - RT21: indeo
  76. #
  77. ############################################
  78.  
  79. SET VID VIDEO COMPRESSION ULTI NOTIFY
  80. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SET #6
  81. @WAIT_NOTIFY 6 30000
  82.  
  83.  
  84. ############################################
  85. #
  86. #   set video quality (0-10000)
  87. #
  88. ############################################
  89.  
  90. SET VID VIDEO QUALITY 5000 NOTIFY
  91. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SET #7
  92. @WAIT_NOTIFY 7 30000
  93.  
  94.  
  95. set VID video record frame duration 66665 notify
  96. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SET #11
  97. @WAIT_NOTIFY 11 60000
  98. #
  99. #############################################################################
  100. # check the status of video record frame duration                           #
  101. #############################################################################
  102. #
  103. status vid video record frame duration wait
  104. =66665
  105.  
  106. ############################################
  107. #
  108. #   set audio parameters:
  109. #     - SAMPLESPERSEC: 11025,22050,44100
  110. #     - CHANNEL: 1,2
  111. #     - BITSPERSAMPLE: 8,16
  112. #     - VOLUME: 0-100
  113. #
  114. ############################################
  115.  
  116. SET VID SAMPLESPERSEC 44100 NOTIFY
  117. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SET #8
  118. @WAIT_NOTIFY 8 30000
  119.  
  120. status VID samplespersec wait
  121. =44100
  122.  
  123. SET VID CHANNELS 2 NOTIFY
  124. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SET #10
  125. @WAIT_NOTIFY 10 30000
  126.  
  127. SET VID BITSPERSAMPLE 8 NOTIFY
  128. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SET #12
  129. @WAIT_NOTIFY 12 30000
  130.  
  131. SET VID AUDIO VOLUME 100 NOTIFY
  132. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SET #14
  133. @WAIT_NOTIFY 14 30000
  134.  
  135. ############################################
  136. #
  137. #   set window size
  138. #
  139. ############################################
  140.  
  141. PUT VID RECORD SOURCE AT 0 100 640 380 NOTIFY
  142. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_PUT #16
  143. @WAIT_NOTIFY 16 30000
  144.  
  145. PUT VID RECORD DESTINATION AT 0 0 320 240 NOTIFY
  146. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_PUT #18
  147. @WAIT_NOTIFY 18 30000
  148.  
  149. ############################################
  150. #
  151. #   message to user: play source
  152. #
  153. ############################################
  154.  
  155. @BREAK Make sure that the source is already playing
  156.  
  157. ############################################
  158. #
  159. #   move monitor window then record for 10 seconds
  160. #
  161. ############################################
  162.  
  163. put VID monitor move at 100 50 0 0 wait
  164. @pause 5000
  165.  
  166. put VID monitor move at 200 0 100 50 wait
  167. @pause 5000
  168.  
  169. RECORD VID TO 60000 NOTIFY
  170. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_RECORD #20
  171. @WAIT_NOTIFY 20 60000
  172.  
  173. ############################################
  174. #
  175. #   play and save the file
  176. #
  177. ############################################
  178.  
  179. PLAY VID FROM 0 NOTIFY
  180. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_PLAY #22
  181. @WAIT_NOTIFY 22 50000
  182.  
  183. save VID delete.avi notify
  184. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SAVE #23
  185. @WAIT_NOTIFY 23 50000
  186.  
  187. stop VID wait
  188.  
  189. SET VID MONITOR OFF NOTIFY
  190. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SET #32
  191. @WAIT_NOTIFY 32 30000
  192.  
  193. @break The source MONITOR was off. New PLAY will not have video static.
  194.  
  195. load VID delete.avi notify
  196. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_LOAD #25
  197. @WAIT_NOTIFY 25 40000
  198.  
  199. PLAY VID FROM 0 NOTIFY
  200. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_PLAY #27
  201. @WAIT_NOTIFY 27 50000
  202.  
  203. PUT VID monitor WINDOW AT 0 0 320 200 SIZE NOTIFY
  204. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_PUT #66
  205. @WAIT_NOTIFY 66 50000
  206. @PAUSE 2000
  207.  
  208. PUT VID monitor WINDOW AT 0 0 200 240 SIZE NOTIFY
  209. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_PUT #67
  210. @WAIT_NOTIFY 67 50000
  211. @pause 2000
  212.  
  213. ############################################
  214. #
  215. #   MOVE WINDOW
  216. #   WAIT FOR SUCCESSFUL PUT
  217. #
  218. ############################################
  219.  
  220. PUT VID WINDOW AT 400 0 500 0 MOVE NOTIFY
  221. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_PUT #77
  222. @WAIT_NOTIFY 77 50000
  223. @PAUSE 2000
  224.  
  225. PUT VID WINDOW AT 100 100 500 0 MOVE NOTIFY
  226. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_PUT #78
  227. @WAIT_NOTIFY 78 50000
  228. @PAUSE 2000
  229.  
  230.  
  231. ############################################
  232. #
  233. #   close video in
  234. #
  235. ############################################
  236. CLOSE VID NOTIFY
  237. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_CLOSE #29
  238. @WAIT_NOTIFY 29 30000
  239.  
  240.